home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1986 September & October
/
rerun-1986-09-10.d64
/
graphix demo 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
809b
|
31 lines
100 !sc,2:!co,208:!pn,1:poke53280,0
105 forx=0to319step5:!dr,x,100-cos(x/50)*60,319-x,100+cos(x/50)*100:next
110 gosub230
115 !sc,2:!co,18:poke53280,2
120 forx=0to280step4:!dr,x,100+sin(x/50)*100,319-x,100+cos(x/25)*50:next
125 gosub230
130 !sc,2:!co,97:poke53280,1
135 forx=0to315step4:!dr,x,100+sin(x/50)*40,319-x,100+sin(x/50)*100:next
140 gosub230
145 !sc,2:!co,16:poke53280,0
150 fori=0to319step2:!dr,160,100,i,100+cos(i)*100:next
155 gosub230
160 fori=0to24
165 c=int(rnd(0)*16)*16:ifc=0then165
170 forj=0to40:!bl,j+i*40,c:next:next
175 gosub230
180 !sc,2:!co,219:poke53280,11
185 fori=0to315step4:!dr,i,130+abs(sin(i/50)*50),319-i,9+abs(sin(i/50)*50):next
190 gosub230
195 !sc,2:!co,114:poke53280,2
200 poke50251,11:forn=0to8:poke50243,n:!cr,160,100,122:next
205 gosub230
210 !sc,2:!co,110:poke53280,14
215 fori=0to315step4
216 !dr,319-i,100-abs(sin(i/50)*100),i,100+abs(sin(i/50)*100):next
220 gosub230
225 !sc,0:poke53280,14:end
230 geta$:ifa$=""then230
235 ifa$="[133]"then225
240 return